home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-20
/
nos_kit3.zip
/
TNC_ASH.ZIP
/
README
< prev
next >
Wrap
Text File
|
1987-08-26
|
4KB
|
111 lines
KISS for VADCG and ASHBY TNC's, by Mike Bruski, AJ9X
This document created by Bdale Garbee, N3EUA 870225
The file KISS_VDG.ASM directly supports stock VADCG TNC's, and ASHBY
TNC's with 2716 ROMs. The HEX file for this version is supplied as
KISS_VDG.HEX. With minor changes, this source can also support ASHBY
boards with 2732 ROMs, and VADCG/VDS-1 boards with 8k RAM.
For the ASHBY boards with 2732 ROMs, apply the following changes to the
file KISS_VDG.ASM, and reassemble. The HEX for this version is supplied
as KISS_ASH.HEX:
2c2
< ; ** KISS Protocol Program for stock VADCG/ASHBY-2716 KISS V1.03 **
---
> ; ** KISS Protocol Program for ASHBY-2732 TNC KISS V1.03 **
264,265c264,265
< ; 1000H 1FFFH *ASHBY with 2716 ROMs or Standard VADCG
< ; 2000H 2FFFH ASHBY with 2732 ROMs
---
> ; 1000H 1FFFH ASHBY with 2716 ROMs or Standard VADCG
> ; 2000H 2FFFH *ASHBY with 2732 ROMs
272,273c272,273
< LORAM EQU 1000H ; BEGINNING OF SRAM
< HIRAM EQU 1FFFH ; END OF SRAM
---
> LORAM EQU 2000H ; BEGINNING OF SRAM
> HIRAM EQU 2FFFH ; END OF SRAM
1791c1791
< DB 'VADCG/ASHBY-2716 Terminal Node Controller'
---
> DB 'ASHBY-2732 Terminal Node Controller'
For VADCG/VDS-1 boards with 8k of RAM, apply the following changes to the
file KISS_VDG.ASM, and reassemble. The HEX for this version is supplied
as KISS_VDS.ASM:
0a1
> ; FILE: KISS-VDS.ASM
2c3
< ; ** KISS Protocol Program for stock VADCG/ASHBY-2716 KISS V1.03 **
---
> ; ** KISS Protocol Program for VADCG/VDS-1 TNC KISS V1.03 **
264c265
< ; 1000H 1FFFH *ASHBY with 2716 ROMs or Standard VADCG
---
> ; 1000H 1FFFH ASHBY with 2716 ROMs or Standard VADCG
268c269
< ; 8000H 9FFFH VADCG with VDS-1 (8K RAM)
---
> ; 8000H 9FFFH *VADCG with VDS-1 (8K RAM)
272,273c273,274
< LORAM EQU 1000H ; BEGINNING OF SRAM
< HIRAM EQU 1FFFH ; END OF SRAM
---
> LORAM EQU 8000H ; BEGINNING OF SRAM
> HIRAM EQU 9FFFH ; END OF SRAM
572,578c573,579
< ;*; MVI A,C0+RLB+MD3+BIN ; 8253 MODE CONTROL WORD
< ;*; OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
< ;*; LXI H,SBR1200 ; CONSTANT FOR 1200 BAUD
< ;*; MOV A,L ; A <-- LSB
< ;*; OUT PIT0 ; WRITE
< ;*; MOV A,H ; A <-- MSB
< ;*; OUT PIT0 ; WRITE
---
> MVI A,C0+RLB+MD3+BIN ; 8253 MODE CONTROL WORD
> OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
> LXI H,SBR1200 ; CONSTANT FOR 1200 BAUD
> MOV A,L ; A <-- LSB
> OUT PIT0 ; WRITE
> MOV A,H ; A <-- MSB
> OUT PIT0 ; WRITE
581,587c582,588
< ;*; MVI A,C2+RLB+MD3+BIN ; MODE CONTROL WORD
< ;*; OUT ITCP ; WRITE
< ;*; LXI H,SEED ; COUNTER VALUE
< ;*; MOV A,L ; A <-- LSB
< ;*; OUT PIT2 ; WRITE
< ;*; MOV A,H ; A <-- MSB
< ;*; OUT PIT2 ; WRITE
---
> MVI A,C2+RLB+MD3+BIN ; MODE CONTROL WORD
> OUT ITCP ; WRITE
> LXI H,SEED ; COUNTER VALUE
> MOV A,L ; A <-- LSB
> OUT PIT2 ; WRITE
> MOV A,H ; A <-- MSB
> OUT PIT2 ; WRITE
644,650c645,651
< ;*; MVI A,C2+RLL ; READ CONTROL WORD
< ;*; OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
< ;*; IN PIT2 ; READ LSB OF TIMER (OUR RANDOM #)
< ;*; MOV B,A ; COPY TO B FOR NOW
< ;*; LDA PVAL ; A <-- PERSISTENCE VALUE
< ;*; SUB B
< ;*; JNC A5$S0A ; IF (RANDOM < PVAL) GOTO A5$S0A
---
> MVI A,C2+RLL ; READ CONTROL WORD
> OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
> IN PIT2 ; READ LSB OF TIMER (OUR RANDOM #)
> MOV B,A ; COPY TO B FOR NOW
> LDA PVAL ; A <-- PERSISTENCE VALUE
> SUB B
> JNC A5$S0A ; IF (RANDOM < PVAL) GOTO A5$S0A
1791c1792
< DB 'VADCG/ASHBY-2716 Terminal Node Controller'
---
> DB 'VADCG/VDS-1 Terminal Node Controller'